home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / dugan's art depo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  110 lines
  1. 1 ifx>.then10
  2. 2 poke53280,.:poke53281,.
  3. 3 print"[147]"
  4. 4 print"     [215]elcome to [196]ugan's [193]rt [196]epot..."
  5. 5 :
  6. 10 ifx=0thenx=1:load"unpacker",8,1
  7. 20 ifx=1thenx=2:load"bload.o",8,1
  8. 30 :
  9. 40 bl=828:unpack=51456:hgr=51459
  10. 50 :
  11. 55 np=10:dim t$(np),a$(np),r$(np)
  12. 57 forx=1tonp:readt$(x),a$(x),r$(x):next
  13. 60 gosub 50060: rem title screen
  14. 70 forx=1tonp:gosub60000
  15. 80 print"[154]"
  16. 82 printspc(19-len(t$(x))/2)""t$(x)"[146]"
  17. 84 print""spc(19-len(a$(x))/2)""a$(x)"[146]"
  18. 90 sysbl,16384,r$(x)
  19. 92 :
  20. 94 ifpeek(198)<>0thengeta$:poke198,0:ifa$="q"ora$="[209]"thengosub10000
  21. 96 poke249,224:poke250,204
  22. 98 poke251,0:poke252,64
  23. 99 poke253,0:poke254,0:print"[147]";:sysunpack:syshgr
  24. 100 ag=3.34
  25. 110 fordl=1to1500:ifpeek(198)=0thennextdl:goto120
  26. 112 geta$:ifa$="q"ora$="[209]"thensyshgr:gosub10000:syshgr
  27. 120 syshgr:print"[147]":poke198,0:next x
  28. 130 goto70
  29. 140 :
  30. 10000 rem a key was pressed
  31. 10005 poke53281,1:poke53280,5
  32. 10010 print"[147][144]  [193]re you sure you want to quit [[217]/[206]]?"
  33. 10020 poke198,0:wait198,1:getag$
  34. 10030 ifag$="y"orag$="[217]"then30000
  35. 10040 return
  36. 30000 rem quit
  37. 30010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  38. 30020 ifer<>63thenprint"[147]":end
  39. 30030 load"hello connect",8
  40. 50000 rem data <title>,<author>,<real>
  41. 50010 data "[215]ater","[208]atrick [196]ugan",water.shp
  42. 50012 data "[196]eja [214]u","[208]atrick [196]ugan",deja.vu.shp
  43. 50014 data "[194]ird","[208]atrick [196]ugan",bird.shp
  44. 50016 data "[196]isk [196]rive","[208]atrick [196]ugan",diskdrive.shp
  45. 50020 data "[200]orse","[208]atrick [196]ugan",horse.shp
  46. 50022 data "[211]pace","[208]atrick [196]ugan",space.shp
  47. 50026 data "[211]treet","[208]atrick [196]ugan",street.shp
  48. 50030 data "[211]tatue","[208]atrick [196]ugan",statue.shp
  49. 50034 data "[211]ink","[208]atrick [196]ugan",sink.shp
  50. 50040 data "[208]ente'","[208]atrick [196]ugan",pente.shp
  51. 50060 rem title screen
  52. 50065 print"[147]":poke53281,1:poke53280,1
  53. 50072 print"         [176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  54. 50082 print"         [221][204]oadstar [208]resents[221][152] "
  55. 50092 print"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  56. 50102 print"                             "
  57. 50112 print
  58. 50122 print"  [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  59. 50132 print"  [221]       [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159]        [221][152] "
  60. 50142 print"  [159][221]       [221][196]ugan's [193]rt [196]epot[221][154] [159]       [221][152] "
  61. 50152 print"  [159][221]       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159]       [221][152] "
  62. 50162 print"  [159][221]        [154]                   [159]       [221][152] "
  63. 50172 print"  [159][221]                                  [221][152][160]"
  64. 50182 print"  [159][221]   [211]lide [211]how [208]resenter written   [221][152][160]"
  65. 50192 print"  [159][221]         by [193]lan [199]ardner          [221][152][160]"
  66. 50202 print"  [159][221]            ([195]) 1987              [221][152][160]"
  67. 50204 print"  [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
  68. 50212 print"                                       "
  69. 50222 print
  70. 50232 print"     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  71. 50242 print"     [221]  [193]ll pictures created by   [221][152] "
  72. 50252 print"     [221]       [208]atrick [196]ugan        [221][152] "
  73. 50272 print"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  74. 50282 print"                                    "
  75. 50292 :
  76. 50302 print"   [ Press any key to start the show[160]]";
  77. 50312 print"";
  78. 50314 poke198,0:wait198,1:poke198,0
  79. 50316 poke53281,5:return
  80. 59990 :
  81. 60000 :
  82. 60001 poke53281,1:poke53280,5
  83. 60005 print"[147][146]    [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  84. 60010 print"    [221][204]oadstar is proud to present:[221][152] "
  85. 60020 print"    [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  86. 60030 print"                                    "
  87. 60040 print
  88. 60050 print"  [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  89. 60060 print"  [221]                                 [221][152] "
  90. 60070 print"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] "
  91. 60080 print"  [150][221]  [154][221]                          [221] [150]  [221][152] "
  92. 60090 print"  [150][221]  [154][221]        created by        [221] [150]  [221][152] [146][160]"
  93. 60100 print"  [150][221]  [154][221]                          [221] [150]  [221][152] [146] [160]";
  94. 60110 print"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] "
  95. 60120 print"  [150][221]                               [150]  [221][152] "
  96. 60130 print"  [150][221]                                 [221][152] "
  97. 60140 print"  [150][221]                                 [221][152] "
  98. 60150 print"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] [146][160]"
  99. 60160 print"  [150][221]  [154][221] [195]oming soon to a computer[221] [150]  [221][152] [146][160]"
  100. 60170 print"  [150][221]  [154][221]        near you.         [221] [150]  [221][152] [146][160]"
  101. 60180 print"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] [146][160]"
  102. 60190 print"  [150][221]                               [150]  [221][152] [146][160]"
  103. 60200 print"  [150][221]                                 [221][152] "
  104. 60210 print"  [150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  105. 60220 print"                                      "
  106. 60230 print
  107. 60240 print"         [ Press 'Q' to exit ]";
  108. 60250 print"";
  109. 60260 return
  110.